Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DEMO.PRG

Text File | 1985-07-30 | 5KB | 167 lines

Set Date British
Set Scoreboard Off
Set Talk Off
Set Bell Off
Set Safety Off
use clipwage
inde on upper(name) to clipwage
Set Function 2 To 'Do Demo;'
Clear
Do While .T.
  Set Color To w+/
  clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "│"
  @ 9,79 SAY "│"
  @ 10,0 SAY "│"
  @ 10,79 SAY "│"
  @ 11,0 SAY "│"
  @ 11,79 SAY "│"
  @ 12,0 SAY "│"
  @ 12,79 SAY "│"
  @ 13,0 SAY "│"
  @ 13,79 SAY "│"
  @ 14,0 SAY "│"
  @ 14,79 SAY "│"
  @ 15,0 SAY "│"
  @ 15,79 SAY "│"
  @ 16,0 SAY "│"
  @ 16,79 SAY "│"
  @ 17,0 SAY "│"
  @ 17,79 SAY "│"
  @ 18,0 SAY "│"
  @ 18,79 SAY "│"
  @ 19,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
  @ 20,0 SAY "│"
  @ 20,79 SAY "│"
  @ 21,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
*  RETURN

  Set Color To +gr/
  @  2,8 Say 'dBASE-III and Clipper Demonstration Menu Version 2.10 (30/07/85)'
  Set Color To +w/
  @ 5,8  Say '╓─── Time Comparisons ────────╖'
  Set Color To gr+/
  @ 5,13 Say 'Time Comparisons'
  Set Color To +w/
  @  9,8  Say '╙─────────────────────────────╜'
  @  9,42 Say '╙─────────────────────────────╜'
  @  5,42 Say '╓─── File Handling ───────────╖'
  Set Color To gr+/
  @ 5,47 Say 'File Handling'
  Set Color To +w/
  @ 8,42 Say '║ F.                          ║'
  @ 8,8  Say '║ C.                          ║'
  @ 6,8  Say '║ A. Count 1000 Loops.        ║'
  @ 7,8  Say '║ B. First 50 Fibonacci No.s. ║'
  @ 6,42 Say '║ D. Append 200 Records.      ║'
  @ 7,42 Say '║ E. Index  100 Records.      ║'
  @ 11,25 Say '╓─── Miscellaneous ───────────╖'
  Set Color To br/
  @ 12,3 say  'Demonstration System  '
  @ 13,3 say  ' written by P.Usher   '
  @ 14,3 say  '    and I.Turner.     '
  @ 13,56 say '   XAT.Software Ltd   '
  @ 14,56 say '   ~~~~~~~~~~~~~~~~   '
  @ 15,56 say ' The dBASE Specialists'
  @ 16,56 say ' Support & Consultancy'
  Set Color To +gr/
  @ 11,30 Say 'Miscellaneous'
  Set Color To +w/
  @ 17,25 Say '║                             ║'
  @ 18,25 Say '╙─────────────────────────────╜'
  @ 13,25 Say '║                             ║'
  @ 14,25 Say '║                             ║'
  @ 12,25 Say '║                             ║'
  @ 15,25 Say '║                             ║'
  @ 16,25 Say '║                             ║'
  Set Color To +w/g
  @ 6,9 Say ' A. Count 1000 Loops.        '
  @ 8,9 Say ' C. Skip & Display Field.    '
  @ 7,9 Say ' B. First 50 Fibonacci No.s. '
  Set Color To +w/b
  @ 6,43 Say ' D. Append 100 Records.      '
  @ 8,43 Say ' F. Dummy Application.       '
  @ 7,43 Say ' E. Index  100 Records.      '
  Set Color To +w/r
  @ 12,26 Say ' G. Create "n" Variables.    '
  @ 17,26 Say ' X. Exit Demonstration.      '
  @ 14,26 Say '                             '
  @ 15,26 Say ' J. Run Command Test.        '
  @ 13,26 Say ' H. CLIPPER Special Features '
  @ 16,26 Say ' K. SET RELATION Example.    '
  Close Data
  Respmen = ' '
  Do While .not. Respmen$'ABCDEFGHJKX'
    Set Color to gr+/,w+/gr
    @ 20,10 Say 'Please enter option .. [ "A" - "K" or "X" ] ' Get Respmen Pict '!'
    Read
    If .not. Respmen$'ABCDEFGHJKX'
      * PROCEDURE ERROR
      *  Parameters Line,Col,Message
      Message = ' ══ '+'Invalid Option' + ' '
      fin = val(substr(time(),7,2))+3
      if fin > 59
        fin = fin - 60
      endif
      set color to */w
      @ 20,56 say Message
      do while fin > val(substr(time(),7,2))
      enddo
      set color to w/,/w
      @ 20,56 say space(len(Message))
      * return
    Endif [ Display Error Message .. Procedure Error ]
  Enddo [ Select Menu Option ]
  Clear Gets
  If Respmen = 'X'
    @ 20,10 say Space(60)
    Conf = ' '
    Do While .not. Conf$'YN'
      @ 20,10 say 'Are you sure you want to Exit the Demonstration ? (Y/N) ' Get Conf Pict '!'
      Read
    Enddo
    If Conf = 'N'
      Loop
    Endif
    Exit
  Endif [ Exit The System ]
  Do Case
    Case Respmen ='A'
      Do DeLoop
    Case Respmen ='B'
      Do DeFib
    Case Respmen ='C'
      Do Deskip
    Case Respmen ='D'
      Do DeAppend
    Case Respmen ='E'
      Do DeIndex
    Case Respmen ='F'
      Do Clipmenu
    Case Respmen ='G'
      Do DeCrVar
    Case Respmen ='H'
      Do DeFeat
    Case Respmen ='J'
      Do DeRun
    Case Respmen ='K'
      Do Relate2
  EndCase
Enddo
Set Color To w/,/w
@ 23,0
return